package Prueba_If is
   Condicion : Boolean;
end Prueba_If;


package body Prueba_If is
   --  Si no pongo un procedimiento dentro peta, es normal?
   procedure nuevop(uno : in out integer, dos: in out boolean, kk : in out integer)
   is
      i:integer;
   begin
      i:=1;
      return;
   end nuevop;
   begin
    Condicion := True;
      --  Condicion := False;
    if Condicion  then
     Condicion := False;
    else
      Condicion := True;
    end if;
   --  Condicion siempre valdra lo contrario que al inicio
end Prueba_If;

